home *** CD-ROM | disk | FTP | other *** search
/ RISC User... in a Nutshell / RISC User... in a Nutshell.iso / !Nutshell / !OvnPro / Library / !MergeLib < prev    next >
Encoding:
Text File  |  1997-12-31  |  331 b   |  27 lines
  1. int merge_rint = 7716383;
  2. int merge_mult = 331804469;
  3.  
  4.  
  5. int merge_random(int n)
  6. {
  7.  merge_rint=(merge_rint * merge_mult)-1;
  8.  return((((merge_rint & 0x7FFFFFFF)>>16)*n)/0x8000);
  9. }
  10.  
  11.  
  12.  
  13. string merge_strip(int n,int max)
  14. {
  15.  int i=1;
  16.  int j=0;
  17.  
  18.  while(j<n && i<=max)
  19.  {
  20.   if(field(i)!="")j++; 
  21.   i++;
  22.  }
  23.  
  24.  return((j<n)?"":field(i-1));
  25. }
  26.  
  27.